extern int wnlit_(doublereal *w, integer *mdw, integer *m, integer *n, integer *l, integer *ipivot, integer *itype, doublereal *h__, doublereal *scale, doublereal *rnorm, integer *idope, doublereal *dope, logical *done);
/*:ref: drotmg_ 14 5 7 7 7 7 7 */
/*:ref: drotm_ 14 6 4 7 4 7 4 7 */
/*:ref: idamax_ 4 3 4 7 4 */
/*:ref: dcopy_ 14 5 4 7 4 7 4 */
/*:ref: dswap_ 14 5 4 7 4 7 4 */
/*:ref: dscal_ 14 4 4 7 7 4 */
/*:ref: h12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */
